home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / misc / pcall175.lha / PhoneCall_V1.75 / Install&Update_PhoneCall < prev    next >
Encoding:
Text File  |  1995-01-14  |  3.0 KB  |  132 lines
  1. ; $VER: Install_PhoneCall 1.1 (14 Jan 1995)
  2.  
  3. (transcript "Installiere PhoneCall...")
  4.  
  5. (set default-dest "Work:")
  6.  
  7. ;
  8. ; PhoneCall-Zielverzeichnis auswählen
  9. ;
  10.  
  11. (set default-dest
  12.   (askdir
  13.     (prompt "In welches Verzeichnis soll PhoneCall installiert werden? "
  14.             "(es wird KEINE eigene Schublade für PhoneCall erzeugt.)")
  15.     (default default-dest)
  16.     (help   @askdir-help)
  17.   )
  18. )
  19.  
  20. ;
  21. ; PhoneCall installieren
  22. ;
  23.  
  24. (working "Installiere PhoneCall-Hauptprogramm...")
  25.  
  26. (if (AND (NOT (= (substr default-dest (- (strlen default-dest) 1 ) 1 ) ":" ))
  27.          (NOT (= (substr default-dest (- (strlen default-dest) 1 ) 1 ) "/" )))
  28.   ((set default-dest (cat default-dest "/"))
  29.     )
  30. )
  31.  
  32. (copyfiles
  33.    (prompt "Installiere PhoneCall...")
  34.    (source "PhoneCall.info") (dest default-dest)
  35. )
  36.  
  37. (copyfiles
  38.    (source "PhoneCall") (dest default-dest)
  39. )
  40.  
  41. (if (not (exists (tackon default-dest "PhoneCall.pcd")))
  42.   (
  43.     (copyfiles
  44.       (source "PhoneCall.pcd") (dest default-dest)
  45.     )
  46.   )
  47. )
  48.  
  49. (if (askbool (prompt "\nMöchten Sie statt dem Default-PhoneCall-Icon, "
  50.                      "das PhoneCall-Icon von Jodel Schneider installieren? :-)")
  51.              (help @askbool-help))
  52.   (copyfiles
  53.     (source "PhoneCall.jinfo") (newname "PhoneCall.info") (dest default-dest)
  54.   )
  55. )
  56.  
  57. (if (AND (NOT (= (getassign "Locale") "")) (exists "libs:locale.library"))
  58.   (
  59.     (set language
  60.        (askoptions
  61.          (prompt "Welche Sprache(n) wollen Sie installieren?")
  62.          (choices "Deutsch" )
  63.  
  64.          (help "Wenn Sie eine Version des AmigaOS besitzen, "
  65.                "das keine Lokalisierung unterstützt, "
  66.                "installieren Sie bitte keine Sprache.\n\n "
  67.                "Die in PhoneCall eingebaute englische Sprache "
  68.                "benötigt keinen Katalog! "
  69.         )
  70.      )
  71.   )
  72.  
  73.   (if (IN language 0)
  74.     (
  75.        (copyfiles
  76.           (source "Catalogs/deutsch/PhoneCall.catalog")
  77.           (dest "Locale:catalogs/deutsch")
  78.           (prompt "Installiere deutschen Katalog für PhoneCall...")
  79.        )
  80.     )
  81.   )
  82.  )
  83. )
  84.  
  85. (if (AND (NOT (= (getassign "Help") "")) (exists "libs:locale.library"))
  86.   (
  87.     (set helpfile
  88.        (askoptions
  89.          (prompt "Welche OnlineHilfe(n) wollen Sie installieren?")
  90.          (choices "Deutsch" )
  91.  
  92.          (help "Wenn Sie eine Version des AmigaOS besitzen, "
  93.                "das keine Lokalisierung unterstützt, "
  94.                "installieren Sie bitte keine Online-Hilfe.\n\n "
  95.         )
  96.      )
  97.   )
  98.  
  99.   (if (IN helpfile 0)
  100.     (
  101.        (copyfiles
  102.           (source "Docs/PhoneCall.guide")
  103.           (dest "Locale:help/deutsch")
  104.           (prompt "Installiere deutsche Online-Hilfe für PhoneCall...")
  105.        )
  106.     )
  107.   )
  108.  )
  109. )
  110.  
  111. (set doc-dest
  112.   (askdir
  113.     (prompt "In welches Verzeichnis sollen die PhoneCall-Anleitungen kopiert werden? ")
  114.     (default default-dest)
  115.     (help @askdir-help)
  116.   )
  117. )
  118.  
  119. (makedir (tackon doc-dest "Docs") (infos))
  120.  
  121. (copyfiles
  122.   (source "Docs")
  123.   (dest (tackon doc-dest "Docs"))
  124.   (all)
  125.   (prompt "Installiere Anleitungen für PhoneCall...")
  126. )
  127.  
  128. (set @default-dest default-dest)
  129.  
  130. (exit)
  131.  
  132.